#Fonctions TP6

f1<-function(X){ return (X^2-1)}
f2<-function(X){ return (0.2*X^11*(10*(1-X))^6+10*(10*X)^3*(1-X)^10)}

